(def $text (seq (slurp "spp.clj")))
;; if string is symbol name, return the symbol value
;; else return the string itself 
(defn get-symbol-value [$symbol]
  (if (symbol? '$symbol) true))
;; interlop the symbol value to string
(defn say [$text]
  (replace text "\$[a-zA-Z]\w+" get-symbol-value))
